(ns com.jeff.tracer.vect)

(def dot-prod
  (fn [v1 v2]
    (reduce + 0 (map #(* %1 %2) v1 v2))))

(def vmul
  (fn [vect scalar]
    (map #(* %1 scalar) vect)))

(def vsub
  (fn [v1 v2]
    (map #(- %1 %2) v1 v2)))

(def vadd
  (fn [v1 v2]
    (map #(+ %1 %2) v1 v2)))